home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl980 / datapln4.lzh / A1.#@# / FBO_DPI.BAT < prev    next >
Encoding:
DOS Batch File  |  1992-10-28  |  8.6 KB  |  401 lines
  1. ECHO OFF
  2. REM ── 05-16-91...
  3.  
  4. CD\
  5. PRINT /T
  6. CLS
  7. \TAKE-OFF.DIR\J.COM /H
  8. CLS
  9. TYPE \TAKE-OFF.DIR\VV
  10. BREAK OFF
  11. CD \TAKE-OFF.DIR
  12.  
  13. IF EXIST LIFE.EXE IF EXIST DEATH.EXE DEATH
  14.  
  15. IF EXIST AIRPORT\APT.NEW IF EXIST AIRPORT\AIRPORT.OUT GOTO NOSTOP1
  16.  
  17. :LOADAPT
  18. IF NOT EXIST AIRPORT\APT.NEW   GOTO NOAPT
  19. IF NOT EXIST AIRPORT\AIRPORT.* GOTO NOAPT
  20. IF EXIST CAIRGEN.EXE IF EXIST AIRPORT\AIRPORT.SSS CAIRGEN.EXE
  21. CLS
  22. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  23. IF EXIST \TAKE-OFF.DIR\AIRPORT\!??.APT ECHO CANADIAN AFD'S LOADED.
  24. IF EXIST \TAKE-OFF.DIR\AIRPORT\{??.APT ECHO WESTERN  AFD'S LOADED.
  25. IF EXIST \TAKE-OFF.DIR\AIRPORT\}??.APT ECHO EASTERN  AFD'S LOADED.
  26. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\???.APT ECHO - AIRPORT AFD'S NOT PRESENT.
  27. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  28. IF EXIST \TAKE-OFF.DIR\AIRPORT\!.AP? ECHO CANADIAN DIAGRAMS LOADED.
  29. IF EXIST \TAKE-OFF.DIR\AIRPORT\{.AP? ECHO WESTERN  DIAGRAMS LOADED.
  30. IF EXIST \TAKE-OFF.DIR\AIRPORT\}.AP? ECHO EASTERN  DIAGRAMS LOADED.
  31. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\?.AP? ECHO - AIRPORT DIAGRAMS NOT PRESENT.
  32. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  33. ECHO - See AUDIT [F8] for print-out of Airport Index & Airport ID's.
  34. ECHO - Available as subscription.....updated every 56 days.
  35. ECHO 
  36. PAUSE
  37. GOTO NOSTOP1
  38.  
  39. :NOAPT
  40. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  41. IF EXIST AIRPORT\AIRPORT.* ECHO - Old Airports purged due to format change! Please apply for updates.
  42. IF EXIST AIRPORT\AIRPORT.* ERASE AIRPORT\AIRPORT.*
  43. IF EXIST AIRPORT\*.FPT     ERASE AIRPORT\*.FPT
  44. ECHO - Your system has no airports!.....
  45. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  46. PAUSE
  47.  
  48. :NOSTOP1
  49.  
  50. IF EXIST SUCCESS ERASE SUCCESS
  51. IF EXIST *.FB GOTO NEXTONE1
  52. VOL >FB
  53. QLOAD
  54.  
  55. :NEXTONE
  56. CLS
  57. :NEXTONE1
  58. IF %1. == . GOTO ENDING
  59.  
  60. IF %1 == EXTEND MENU_EXT
  61. IF %1 == extend MENU_EXT
  62. IF %1 == X MENU_EXT
  63. IF %1 == x MENU_EXT
  64.  
  65. IF %1 == RECALL GOTO OPTIONP
  66. IF %1 == recall GOTO OPTIONP
  67. IF %1 == FBO  GOTO STARTER
  68. IF %1 == FBO$ GOTO MAIN
  69. IF %1 == FBO! GOTO CLEARANCE
  70. IF %1 == FBOHELP GOTO HELPENDING
  71. IF %1 == GRAPH GOTO CHARTMASTER
  72. IF %1 == graph GOTO CHARTMASTER
  73. IF %1 == G GOTO CHARTMASTER
  74. IF %1 == g GOTO CHARTMASTER
  75.  
  76. IF %1 == LISTPLAN GOTO OPTIONB
  77. IF %1 == listplan GOTO OPTIONB
  78. IF %1 == NAVSUM GOTO OPTIONC
  79. IF %1 == navsum GOTO OPTIONC
  80. IF %1 == PRINT GOTO OPTIOND
  81. IF %1 == print GOTO OPTIOND
  82.  
  83. IF %1 == PREF GOTO OPTIONJ
  84. IF %1 == pref GOTO OPTIONJ
  85. IF %1 == AUTO GOTO OPTIONL
  86. IF %1 == auto GOTO OPTIONL
  87. IF %1 == RNAV GOTO OPTIONM
  88. IF %1 == rnav GOTO OPTIONM
  89. IF %1 == PLAN GOTO OPTIONK
  90. IF %1 == plan GOTO OPTIONK
  91. IF %1 == AIRPORT GOTO AIRPORTS
  92. IF %1 == airport GOTO AIRPORTS
  93. IF %1 == AFD GOTO AIRPORTS
  94. IF %1 == afd GOTO AIRPORTS
  95.  
  96. IF %1 == W&B GOTO W&B
  97. IF %1 == w&b GOTO W&B
  98. IF %1 == MAIN GOTO MAIN
  99. IF %1 == main GOTO MAIN
  100. IF %1 == MENU GOTO CLEARANCE
  101. IF %1 == menu GOTO CLEARANCE
  102. IF %1 == MANUAL GOTO MANUAL
  103. IF %1 == manual GOTO MANUAL
  104. IF %1 == HELP GOTO HELP
  105. IF %1 == help GOTO HELP
  106. IF %1 == MODEL GOTO MODEL
  107. IF %1 == model GOTO MODEL
  108.  
  109. IF %1 == SEARCH GOTO NAVTLU
  110. IF %1 == search GOTO NAVTLU
  111. IF %1 == S GOTO NAVTLU
  112. IF %1 == s GOTO NAVTLU
  113.  
  114. IF %1 == INTERSECTION GOTO XSCTN
  115. IF %1 == intersection GOTO XSCTN
  116. IF %1 == I GOTO XSCTN
  117. IF %1 == i GOTO XSCTN
  118.  
  119. IF %1 == NAVAID GOTO NAVAID
  120. IF %1 == navaid GOTO NAVAID
  121. IF %1 == N GOTO NAVAID
  122. IF %1 == n GOTO NAVAID
  123.  
  124. IF %1 == RESET GOTO RESET
  125. IF %1 == reset GOTO RESET
  126. IF %1 == AUTOEXEC GOTO AEXEC
  127. IF %1 == autoexec GOTO AEXEC
  128.  
  129. IF %1 == ALARM GOTO ALARM
  130. IF %1 == alarm GOTO ALARM
  131. IF %1 == FUEL GOTO FUEL
  132. IF %1 == fuel GOTO FUEL
  133.  
  134. IF %1 == LOGOS GOTO LOGOS
  135. IF %1 == logos GOTO LOGOS
  136.  
  137. IF %1 == VIEW GOTO VIEW
  138. IF %1 == view GOTO VIEW
  139. IF %1 == V GOTO VIEW
  140. IF %1 == v GOTO VIEW
  141.  
  142. ECHO - [ %1 ] Function unknown!......
  143. PAUSE
  144. GOTO ENDING
  145. :VIEW
  146. VIEW 12
  147. GOTO ENDING
  148.  
  149. :FUEL
  150. QLOAD
  151. IF NOT EXIST FB ECHO - Fuel load not successful.....
  152. IF NOT EXIST FB PAUSE
  153. GOTO ENDING
  154.  
  155. :RESET
  156. BEGIN
  157. GOTO ENDING
  158.  
  159. :MAIN
  160. IDLER
  161. GOTO ENDING
  162.  
  163. :XSCTN
  164. IDLER 5
  165. GOTO ENDING
  166.  
  167. :NAVAID
  168. IDLER 4
  169. GOTO ENDING
  170.  
  171. :ALARM
  172. IF NOT %2. == . GOTO ALARMA
  173. ECHO - Vendor # missing!......
  174. GOTO ALARMEXI
  175. :ALARMA
  176. IF NOT %3. == . GOTO ALARMGO
  177. ECHO - Time missing!......
  178. :ALARMEXI
  179. PAUSE
  180. GOTO ENDING
  181.  
  182. :ALARMGO
  183. IDLER 10 %2 %3              %4 %5 %6 %7 %8 %9
  184. REM - spaces are required to allow for commandmsg$ display.....
  185. IF NOT EXIST SUCCESS GOTO ENDING
  186. IF %2 == 8  GOTO DUATLOG
  187. IF %2 == 9  GOTO DUATLOG
  188.  
  189. :ALARMC
  190. SHIFT
  191. SHIFT
  192. SHIFT
  193. GOTO NEXTONE
  194.  
  195. :DUATLOG
  196. CLS
  197. ECHO - Printing DUAT log.......
  198. COPY /A DUAT.DAT PRN:
  199. COPY /B SUCCESS PRN:
  200. GOTO ALARMC
  201.  
  202. :CLEARANCE
  203. CLEARANC
  204. GOTO ENDING
  205.  
  206. :OPTIONB
  207. CLEARANC B
  208. GOTO ENDING
  209.  
  210. :OPTIONC
  211. CLEARANC C
  212. GOTO ENDING
  213.  
  214. :OPTIOND
  215. IF EXIST PRTARGET ERASE PRTARGET
  216. CLEARANC D PRTARGET nonesuch nonesuch
  217. GOTO PLANFINI
  218.  
  219. :OPTIONJ
  220. IF EXIST PRTARGET ERASE PRTARGET
  221. IF EXIST AIRPORTS ERASE AIRPORTS
  222. IF EXIST APTARGET ERASE APTARGET
  223. CLEARANC J PRTARGET %2 %3
  224. GOTO OPTJLM
  225.  
  226. :OPTIONL
  227. IF EXIST PRTARGET ERASE PRTARGET
  228. IF EXIST AIRPORTS ERASE AIRPORTS
  229. IF EXIST APTARGET ERASE APTARGET
  230. CLEARANC L PRTARGET %2 %3 %4 %5 %6 %7
  231. GOTO OPTJLM
  232.  
  233. :OPTIONM
  234. IF EXIST PRTARGET ERASE PRTARGET
  235. IF EXIST AIRPORTS ERASE AIRPORTS
  236. IF EXIST APTARGET ERASE APTARGET
  237. CLEARANC M PRTARGET %2 %3
  238. GOTO OPTJLM
  239.  
  240. :OPTIONK
  241. IF EXIST AIRPORTS ERASE AIRPORTS
  242. CLEARANC K
  243. GOTO ENDING
  244.  
  245. :OPTIONP
  246. IF EXIST PRTARGET ERASE PRTARGET
  247. IF EXIST AIRPORTS ERASE AIRPORTS
  248. IF EXIST APTARGET ERASE APTARGET
  249. CLEARANC P PRTARGET zzzzz zzzzz
  250. GOTO OPTJLM
  251.  
  252. :OPTJLM
  253. CLS
  254. IF NOT EXIST PRTARGET ECHO - Plan was not successful......!
  255. IF NOT EXIST PRTARGET PAUSE
  256. IF NOT EXIST PRTARGET GOTO ENDING
  257. CLS
  258. ECHO - Please turn printer & modem on. Thank you.
  259. COPY /B PRTARGET PRN:
  260. CLS
  261. IF EXIST WEABRIEF ERASE WEABRIEF
  262. IF EXIST SUCCESS IDLER 11
  263. CLS
  264. ECHO - Printing enroute weather briefing.........
  265. IF EXIST WEABRIEF COPY /B WEABRIEF PRN:
  266. CLS
  267. IF NOT EXIST AIRPORTS GOTO ACHART
  268. AFD
  269. ECHO - Please turn printer on. Thank you.
  270. COPY /B APTARGET PRN:
  271.  
  272. :ACHART
  273. IF EXIST GRTARGET ERASE GRTARGET
  274. IF %2. == . CHARTER
  275. IF %2. == . GOTO ENDING
  276. CHARTER GRTARGET
  277. GOTO XCHARTMASTER
  278.  
  279. :CHARTMASTER
  280. IF EXIST GRTARGET ERASE GRTARGET
  281. IF %2. == . CHARTER
  282. IF %2. == . GOTO ENDING
  283. CHARTER GRTARGET %3
  284. :XCHARTMASTER
  285. IF NOT EXIST GRTARGET GOTO ENDING
  286. ECHO - Please turn printer on. Thank you.
  287. COPY /B GRTARGET PRN:
  288. GOTO ENDING
  289.  
  290. :PLANFINI
  291. IF NOT EXIST PRTARGET GOTO ENDING
  292. CLS
  293. ECHO - Please turn printer on. Thank you.
  294. COPY /B PRTARGET PRN:
  295. IF %2. == R. GOTO PLANFB
  296. IF %2. == r. GOTO PLANFB
  297. GOTO PLANFA
  298.  
  299. :PLANFB
  300. IF EXIST GRTARGET ERASE GRTARGET
  301. CHARTER GRTARGET
  302. IF NOT EXIST GRTARGET GOTO ENDING
  303. ECHO - Please turn printer on. Thank you.
  304. COPY /B GRTARGET PRN:
  305. :PLANFA
  306. IF %3. == . GOTO OPTDKP
  307. SHIFT
  308. GOTO AIRPORTS
  309.  
  310. :AIRPORTS
  311. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT CLS
  312. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT ECHO - Airports not present!
  313. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT PAUSE
  314. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT GOTO ENDING
  315. IF EXIST APTARGET ERASE APTARGET
  316. IF %2. == . AIRPORT
  317. IF %2. == . GOTO ENDING
  318. AIRPORT %2 %3 APTARGET %4 %5
  319. IF NOT EXIST APTARGET GOTO ENDING
  320. REM - IF %4. == . PAUSE
  321. CLS
  322. :OPTDKPX
  323. IF NOT EXIST APTARGET GOTO ENDING
  324. ECHO - Please turn printer on. Thank you.
  325. COPY /B APTARGET PRN:
  326. GOTO ENDING
  327.  
  328. :OPTDKP
  329. CLS
  330. IF EXIST APTARGET ERASE APTARGET
  331. IF EXIST AIRPORTS AFD
  332. GOTO OPTDKPX
  333.  
  334. :W&B
  335. WB
  336. GOTO ENDING
  337.  
  338. :MODEL
  339. BUILD
  340. GOTO ENDING
  341.  
  342. :NAVTLU
  343. NAVTLU
  344. GOTO ENDING
  345.  
  346. :STARTER
  347. DIR \TAKE-OFF.DIR\*.VER >VERSIONS
  348. TYPE \TAKE-OFF.DIR\VERSIONS | MORE
  349. TYPE \TAKE-OFF.DIR\COPYRATE.MAN
  350. TYPE \TAKE-OFF.DIR\TOMBSTON.EXE
  351. PAUSE
  352. GOTO MAIN
  353.  
  354. :HELPENDING
  355. DIR \TAKE-OFF.DIR\*.VER >VERSIONS
  356. ECHO - Versions installed......
  357. TYPE \TAKE-OFF.DIR\VERSIONS | MORE
  358. PAUSE
  359. GOTO ENDING
  360.  
  361. :MANUAL
  362. ECHO - PRINT CLEARANCE MANUAL
  363. ECHO -
  364. ECHO - Turn Printer on! DOS print file must be in path.
  365. ECHO -
  366. PAUSE
  367. CD\
  368. DIR \TAKE-OFF.DIR\*.VER >VERSIONS
  369. PRINT \TAKE-OFF.DIR\VERSIONS
  370. PRINT \TAKE-OFF.DIR\HELP.BAS
  371. CLS
  372. TYPE  \TAKE-OFF.DIR\V
  373. ECHO - Wait for printing to stop!
  374. PAUSE
  375. GOTO ENDING
  376.  
  377. :HELP
  378. IDLER 1
  379. GOTO ENDING
  380.  
  381. :LOGOS
  382. IF EXIST \TAKE-OFF.DIR\AIRPORT\MAKELOGO.EXE IF EXIST \TAKE-OFF.DIR\AIRPORT\LOGOS.BAT GOTO LOGOS2
  383. CLS
  384. ECHO - Please install Master Airport directory. Thank you.
  385. ECHO 
  386. PAUSE
  387. GOTO ENDING
  388.  
  389. :LOGOS2
  390. IF EXIST \TAKE-OFF.DIR\AIRPORT\*.LGO    ERASE \TAKE-OFF.DIR\AIRPORT\*.LGO
  391. IF EXIST \TAKE-OFF.DIR\AIRPORT\ADHEADER ERASE \TAKE-OFF.DIR\AIRPORT\ADHEADER
  392. \TAKE-OFF.DIR\AIRPORT\LOGOS
  393.  
  394. :AEXEC
  395. cd\
  396. AUTOEXEC.BAT
  397.  
  398. :ENDING
  399. \TAKE-OFF.DIR\MENU_DPI
  400.  
  401.